home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Item MB Quick & Easy 2.0
/
Item MB Quick & Easy 2.0.iso
/
mbfacad
/
eaitinfo.lsp
< prev
next >
Wrap
Text File
|
1998-03-15
|
12KB
|
287 lines
;L ang K urz S orte
(defun EAITinf (AIT_mo / AIT-eb AIT-nr AIT-x)
(EAITmsg "mb_mld1" "\n\n" "022" nil)
(EAITvari)
(EAITvars)
(setq AIT-eb (car (entsel " ")))
(if (and (/= AIT-eb nil)(= (EAITdxf 0 (entget AIT-eb)) "INSERT"))
(if (OR (= (EAITdxf 2 (entget AIT-eb)) "EAITINFO")(= (EAITdxf 2 (entget AIT-eb)) "MB-INFO"))
;2D-Info-Punkt
(progn
(setq AIT-nr (EAITdxf 1 (entget (entnext(entnext(entnext(entnext(entnext(entnext(entnext(entnext(entnext AIT-eb)))))))))))
AIT-nr (substr AIT-nr 1 (- (strlen AIT-nr) 5))
AIT-nr (strcat (substr "00000000" 1 (- 7 (strlen AIT-nr))) AIT-nr)
)
; (if (findfile (strcat EAITpfn "dat/" AIT-nr ".dat"))
(if (findfile (strcat EAITpfd AIT-nr ".dat"))
(EAITIfo AIT_mo AIT-eb AIT-nr "2D")
(progn
(if (< (setq dcl_id (load_dialog (strcat EAITpfd "EAITem"))) 0)
(exit)
)
(new_dialog "no_item" dcl_id)
(start_dialog)
(unload_dialog dcl_id)
)
)
)
(progn
;3D-Struktur vorhanden?
(setq AIT-x "X")
;Index-Element? -> Hauptelement selektieren
(if (entnext AIT-eb)
(if (and (= (EAITdxf 0 (entget (entnext AIT-eb))) "ATTRIB")(= (EAITdxf 2 (entget (entnext AIT-eb))) "EAIT3D_REF"))
(progn
(setq AIT-eb (EAIThb AIT-eb))
(if (entnext AIT-eb)
(if (and (= (EAITdxf 0 (entget (entnext AIT-eb))) "ATTRIB")(= (EAITdxf 2 (entget (entnext AIT-eb))) "EAIT3D_REF")) (setq AIT-x nil))
(setq AIT-x nil)
)
)
)
)
;Haupt-Element?
(if (and AIT-x (entnext AIT-eb))
(if (entnext(entnext AIT-eb))
(if (entnext(entnext(entnext AIT-eb)))(setq AIT-x "X")(princ))
(setq AIT-x nil)
)
(setq AIT-x nil)
)
;3D-Element
(if AIT-x
(progn
(setq AIT-nr (EAITdxf 1 (entget (entnext(entnext(entnext AIT-eb))))) )
(if (and (/= AIT-nr nil) (findfile (strcat EAITpfd AIT-nr ".dat")))
(EAITIfo AIT_mo AIT-eb AIT-nr "3D")
(progn
(if (< (setq dcl_id (load_dialog (strcat EAITpfd "EAITem"))) 0)
(exit)
)
(new_dialog "no_item" dcl_id)
(start_dialog)
(unload_dialog dcl_id)
)
)
)
(progn
(if (< (setq dcl_id (load_dialog (strcat EAITpfd "EAITem"))) 0)
(exit)
)
(new_dialog "no_item" dcl_id)
(start_dialog)
(unload_dialog dcl_id)
)
)
)
)
(progn
(if (< (setq dcl_id (load_dialog (strcat EAITpfd "EAITem"))) 0)
(exit)
)
(new_dialog "no_item" dcl_id)
(start_dialog)
(unload_dialog dcl_id)
)
)
(EAITvarz)
(princ)
)
;Daten anzeigen
(defun EAITIfo (AIT_mo AIT_ebx AIT_nr AIT_23d / AIT-po AIT-e AIT-b1 AIT-b2
AIT-l1 AIT-l2 AIT-w1 AIT-w2 AIT-verb
AIT-l AIT-b AIT-gw AIT-ebx AIT-n)
(EAITdbl AIT_nr)
(if EAITnrx
(progn
(setq AIT_nr (strcat (substr EAITnrx 1 1) "." (substr EAITnrx 2 1) "." (substr EAITnrx 3 3) "." (substr EAITnrx 6 2) )
AIT-e AIT_ebx)
(if (= AIT_23d "3D")
(setq AIT-po (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext(entnext(entnext AIT-e)))
)
(setq AIT-po "0")
)
(if (not AIT-po)(setq AIT-po "0"))
(setq AIT-b1 (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext AIT-e)
AIT-b2 (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext AIT-e)
AIT-l1 (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext AIT-e)
AIT-l2 (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext AIT-e)
AIT-w1 (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext AIT-e)
AIT-w2 (EAITdxf 1 (entget (entnext AIT-e)))
AIT-e (entnext AIT-e)
AIT-l (atof (EAITdxf 1 (entget (entnext AIT-e))))
AIT-e (entnext AIT-e)
AIT-b (atof (EAITdxf 1 (entget (entnext AIT-e))))
AIT-e (entnext(entnext AIT-e))
AIT-verb (EAITdxf 1 (entget (entnext AIT-e)))
)
(if (or (= AIT-verb "0")(= AIT-verb nil))(setq AIT-verb ""))
(cond ((= EAITme "m") (setq AIT-gw (* EAITgew (/ AIT-l 1000))))
((= EAITme "qm")(setq AIT-gw (* EAITgew (/ AIT-l 1000)(/ AIT-b 1000))))
(T (setq AIT-gw EAITgew))
)
(setq AIT-gw (/ (float (fix (+ (* AIT-gw 100.0) 0.5))) 100));2. Nachkommastellen
(setq AIT-gwstr (rtos AIT-gw 2 2))
(cond ((= AIT_mo "K")
(progn
(if (< (setq dcl_id (load_dialog (strcat EAITpfd "EAITem"))) 0)
(exit)
)
(new_dialog "mb_element_k" dcl_id)
(set_tile "Meldung10" (strcat (EAITmg "mb_mld1" "026") AIT-b1))
(if (> AIT-b2 " ")(set_tile "Meldung11" (strcat " " AIT-b2)))
(if (/= AIT-l 0.0)
(if (/= AIT-b 0.0)
(progn
(setq
AIT-bstr (rtos AIT-b 2 1)
AIT-lstr (rtos AIT-l 2 1)
AIT-ges1 (strcat AIT-lstr " / " AIT-bstr " mm")
)
(set_tile "Meldung12" (strcat (EAITmg "mb_mld1" "030") AIT-ges1))
)
(progn
(setq
AIT-lstr (rtos AIT-l 2 1)
)
(set_tile "Meldung12" (strcat (EAITmg "mb_mld1" "029") AIT-lstr " mm"))
)
)
)
(set_tile "Meldung13" (strcat (EAITmg "mb_mld1" "031") AIT-gwstr " kg"))
(set_tile "Meldung14" (strcat (EAITmg "mb_mld1" "027") AIT-w1 ))
(set_tile "Meldung15" (strcat " " AIT-w2))
(set_tile "Meldung16" (strcat (EAITmg "mb_mld1" "033") AIT_nr))
(start_dialog)
(unload_dialog dcl_id)
)
)
((= AIT_mo "L")
(progn
;Anzahl der Elemente anzeigen
(redraw AIT_ebx 3)
(if (< (setq dcl_id (load_dialog (strcat EAITpfd "EAITem"))) 0)
(exit)
)
(new_dialog "info_lang" dcl_id)
(seitenanzeige)
(start_list "l_anzeige" 3)
(mapcar 'add_list EAIT-eigenlist)
(end_list)
(start_dialog)
(unload_dialog dcl_id)
(redraw AIT_ebx 4)
)
)
(T (setq AIT-ebx (ssget "X" (list (cons 0 "INSERT")(cons 2 (strcat EAITnrx "," EAITnrx "?")) )))
;markieren
(setq AIT-n (1- (sslength AIT-ebx)))
(while (>= AIT-n 0)
(redraw (ssname AIT-ebx AIT-n) 3)
(setq AIT-n (1- AIT-n))
)
(princ "\n\n")
(princ AIT-b1)(princ " ")(princ AIT_nr)
(if (> AIT-b2 " ")(progn (princ "\n")(princ AIT-b2)))
(EAITmsg "mb_mld1" "\n" "032" nil)
(getstring)
;Markierung aufheben
(setq AIT-n (1- (sslength AIT-ebx)))
(while (>= AIT-n 0)
(redraw (ssname AIT-ebx AIT-n) 4)
(setq AIT-n (1- AIT-n))
)
)
)
)
(princ)
)
(princ)
)
;Definieren der Funktion zur Anzeige der richtigen Werte auf den Seiten von
;Info-lang
(defun seitenanzeige ( / )
(setq EAIT-eigenlist (list))
(if (> AIT-po "0")(setq EAIT-eigenlist (append (list (strcat (EAITmg "mb_mld1" "025") AIT-po)) EAIT-eigenlist)))
(setq EAIT-eigenlist (append (list (strcat (EAITmg "mb_mld1" "026") AIT-b1)) EAIT-eigenlist))
(if (> AIT-b2 " ")(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat " " AIT-b2)))))
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "033") AIT_nr))))
(if (/= AIT-l 0.0)
(if (/= AIT-b 0.0)
(progn
(setq
AIT-bstr (rtos AIT-b 2 1)
AIT-lstr (rtos AIT-l 2 1)
AIT-ges1 (strcat AIT-lstr " / " AIT-bstr " mm")
)
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "030") AIT-ges1))))
)
(progn
(setq
AIT-lstr (rtos AIT-l 2 1)
)
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "029") AIT-lstr " mm"))))
)
)
)
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "027") AIT-w1 ))))
(if (> AIT-w2 " ") (setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat " " AIT-w2)))))
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "031") AIT-gwstr " kg"))))
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "028") AIT-l1))))
(if (> AIT-l2 " ")(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat " " AIT-l2)))))
(if (> AIT-verb " ")(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld5" "003") AIT-verb)))))
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat " " ))))
(setq EAIT-eigenlist (append EAIT-eigenlist (list (strcat (EAITmg "mb_mld1" "034") ))))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf1)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf2)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf3)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf4)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf5)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf6)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf7)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf8)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf9)))
(setq EAIT-eigenlist (append EAIT-eigenlist (list EAITinf10)))
)
(princ)